home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
vbjigsaw.zip
/
OPENFILE.TXT
< prev
Wrap
Text File
|
1991-05-30
|
420b
|
40 lines
Sub Drive1_Change ()
ChDrive Drive1.Drive
Dir1.Path = CurDir$
End Sub
Sub Dir1_Change ()
ChDir Dir1.Path
File1.Path = Dir1.Path
End Sub
Sub File1_DblClick ()
Hide
End Sub
Sub Cmd_OK_Click ()
Hide
End Sub
Sub Form_Unload (Cancel As Integer)
Cancel = TRUE
Hide
End Sub
Sub Form_Load ()
Remove_Items_From_Sysmenu OpenFile
End Sub